home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tj.d64 / quiz.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  340 lines
  1. 20 CR$=CHR$(13):E$="EOF":HC=0:EN=0:EM$=CHR$(0):ET=0:ES=0:S=0
  2. 30 POKE53280,1:POKE53281,1:PRINT"[147]"TAB(4);
  3. 40 FORJ=1TO30:PRINT" ";:NEXTJ
  4. 50 FORL=1TO8:PRINTTAB(4)" "TAB(35)" ":NEXTL
  5. 60 PRINTTAB(4);:FORJ=1TO32:PRINT" ";:NEXTJ
  6. 70 PRINT"[145][145][145][145][145][146]"SPC(12)" *** COMPUTER QUIZ *** "
  7. 80 N=2000:GOSUB540
  8. 90 INPUT"[147]WHAT IS YOUR NAME PLEASE";N$
  9. 100 TN$=N$
  10. 110 PRINT"STATUS:[146]"
  11. 120 INPUT"T[146]EACHER OR S[146]TUDENT";TS$
  12. 130 IFLEFT$(TS$,1)="T"ORLEFT$(TS$,1)="S"THEN150
  13. 140 GOTO120
  14. 150 PRINT"CORRECT:[146]"
  15. 160 INPUT"Y[146]ES OR N[146]O";AN$
  16. 170 IFLEFT$(AN$,1)="N"THEN90
  17. 180 IFLEFT$(AN$,1)="Y"ANDLEFT$(TS$,1)="T"THEN210
  18. 190 GOTO300
  19. 200 REM *** TEACHER OPTIONS
  20. 210 N$=TN$:PRINT"[147]      *** TEACHER OPTIONS *** [146]"
  21. 220 PRINT" 1. PRINT QUIZ ON PRINTER"
  22. 230 PRINT" 2. CHECK INDIVIDUAL STUDENT RECORD"
  23. 240 PRINT" 3. WORK THROUGH QUIZ AS STUDENT"
  24. 250 PRINT" 4. QUIT PROGRAM"
  25. 260 PRINT"    CHOOSE ONE OF THE ABOVE OPTIONS[146]"
  26. 270 GOSUB400:A=VAL(A$):IFA<1ORA>4THEN270
  27. 280 ONAGOTO3340,2790,300,2770
  28. 290 REM *** PURPOSE
  29. 300 PRINT"[147]       *** COMPUTER QUIZ *** [146]"
  30. 310 PRINT"THIS QUIZ IS DESIGNED TO TEST YOUR":PRINT"KNOWLEDGE OF THE ";
  31. 320 PRINT"GENERAL CARE AND USE   OF DISKETTES, AND HOW TO RUN[146] A COMPUTER";
  32. 330 PRINT" PROGRAM FROM A PREPARED DISKETTE ON THE COMMODORE[146] SYSTEM.":GOSUB540
  33. 340 PRINT"SEE YOUR TEACHER OR INSTRUCTOR BEFORE":PRINT"ATTEMPTING TO SAVE[146] ";
  34. 350 PRINT"OR PRINT[146] YOUR OWN    PROGRAMS.":GOSUB540
  35. 360 PRINT"    PRESS ANY KEY TO BEGIN THE QUIZ    "
  36. 370 PRINT" ANSWER TRUE OR FALSE[146] WITH Q[146] TO QUIT[146]"
  37. 380 GOSUB400
  38. 390 GOTO560
  39. 400 GETA$:IFA$<>""THEN400
  40. 410 GETA$:IFA$=""THEN410
  41. 420 RETURN
  42. 430 PRINT"T[146]RUE OR F[146]ALSE";:INPUTTF$
  43. 440 IFLEFT$(TF$,1)="T"THENTA=1:RETURN
  44. 450 IFLEFT$(TF$,1)="F"THENRETURN
  45. 460 IFLEFT$(TF$,1)="Q"THENNQ=NQ-1:GOTO2560
  46. 470 PRINT"[145][145][145]":GOTO430
  47. 480 PRINT"Y[146]ES OR N[146]O?":RETURN
  48. 490 PRINT"PRESS ANY KEY TO CONTINUE"
  49. 500 GOSUB400
  50. 510 RETURN
  51. 520 CA=CA+1:TA=0:RETURN
  52. 530 NQ=NQ+1:PRINT"[147]QUESTION # [146]";NQ;"":RETURN
  53. 540 FORT=1TON:NEXTT:RETURN
  54. 550 REM *** QUIZ
  55. 560 N=1000:NQ=0:CA=0:GOSUB530:PRINT"THE POWER MUST BE TURNED  OFF[146]  BEFORE"
  56. 570 PRINT"CONNECTING OR DISCONNECTING ANYTHING    TO OR FROM ";
  57. 580 PRINT"THE COMPUTER.":GOSUB430
  58. 590 IFTA=1THENPRINT"RIGHT ON! ";N$:GOSUB520:GOTO610
  59. 600 PRINT"OUCH!! SORRY, THIS IS INCORRECT."
  60. 610 GOSUB540:PRINT"NEVER[146] CONNECT OR DISCONNECT ANYTHING    TO OR FROM THE";
  61. 620 PRINT" COMPUTER WHILE IT IS     TURNED ON[146], NOT EVEN A JOYSTICK!"
  62. 630 GOSUB540:PRINT"IT IS A GOOD IDEA TO UNPLUG THE COMPUTERBEFORE CONNECTING ";
  63. 640 PRINT"OR DISCONNECTING ANY- THING TO OR FROM IT."
  64. 650 GOSUB540:GOSUB490
  65. 660 GOSUB530:PRINT"BENDING A DISKETTE MAY DAMAGE IT.":GOSUB430
  66. 670 IFTA=1THENPRINT"YOU'VE GOT IT! ";N$:GOSUB520:GOTO690
  67. 680 PRINT"SORRY! ";N$
  68. 690 GOSUB540:PRINT"ALWAYS AVOID BENDING A DISKETTE AS MUCH AS POSSIBLE, AS ";
  69. 700 PRINT"THIS COULD DAMAGE IT."
  70. 710 GOSUB540:GOSUB490
  71. 720 GOSUB530:PRINT"THE DISKETTE MAY BE REMOVED FROM ITS"
  72. 730 PRINT"PLASTIC COVER TO CLEAN IT.":GOSUB430
  73. 740 IFTA=1THENPRINT"NO - THIS IS FALSE.":TA=0:GOTO760
  74. 750 PRINT"YOU'RE RIGHT AGAIN!":GOSUB520
  75. 760 GOSUB540:PRINT"IT WOULD TOTALLY RUIN THE DISKETTE TO"
  76. 770 PRINT"REMOVE IT FROM ITS PLASTIC COVER."
  77. 780 GOSUB540:GOSUB490
  78. 790 GOSUB530:PRINT"NEVER TOUCH THE ACTUAL SURFACE OF THE   DISKETTE ITSELF";
  79. 800 PRINT" THROUGH THE OVAL CUTOUT OF THE PLASTIC COVER.":GOSUB430
  80. 810 IFTA=1THENPRINT"TRUE! TRUE!":GOSUB520:GOTO830
  81. 820 PRINT"SORRY - THAT IS INCORRECT."
  82. 830 GOSUB540:PRINT"EVEN AN INVISIBLE FINGERPRINT CAN CAUSE":PRINT"PROGRAM ";
  83. 840 PRINT"ERRORS.":GOSUB540:GOSUB490
  84. 850 GOSUB530:PRINT"WHEN A DISKETTE IS NOT IN USE, IT SHOULDBE STORED INSIDE ";
  85. 860 PRINT"THE DISK DRIVE.":GOSUB430
  86. 870 IFTA=1THENPRINT"SORRY - THAT IS NOT A GOOD PRACTICE.":TA=0:GOTO890
  87. 880 PRINT"YOU'RE TOO SHARP!":GOSUB520
  88. 890 GOSUB540
  89. 900 PRINT"THE BEST IDEA IS TO REMOVE THE DISKETTE FROM THE DISK DRIVE AND TO";
  90. 910 PRINT" STORE IT     VERTICALLY IN A PROPER CONTAINER WHEN   NOT IN USE."
  91. 920 GOSUB540:GOSUB490
  92. 930 GOSUB530:PRINT"IT IS BEST TO STORE DISKETTES VERTICALLYWHEN NOT IN USE."
  93. 940 GOSUB430
  94. 950 IFTA=1THENPRINT"YOU'VE BEEN PAYING ATTENTION!":GOSUB520:GOTO970
  95. 960 PRINT"SORRY - THIS IS IN FACT TRUE."
  96. 970 GOSUB540
  97. 980 PRINT"THE MAGNETIC PROPERTIES OF DISKETTES AREBEST PRESERVED WHEN STORED";
  98. 990 PRINT" VERTICALLY."
  99. 1000 GOSUB540:GOSUB490
  100. 1010 GOSUB530:PRINT"AN INVISIBLE SCRATCH ON THE SURFACE OF  THE DISKETTE ITSELF";
  101. 1020 PRINT" CAN CAUSE A PROGRAM ON THE DISKETTE NOT TO WORK PROPERLY.":GOSUB430
  102. 1030 IFTA=1THENPRINT"YES! YES! YES!":GOSUB520:GOTO1050
  103. 1040 PRINT"OH, BUT IT CAN CAUSE PROGRAM ERRORS!"
  104. 1050 GOSUB540:PRINT"TAKE CARE NEVER[146] TO ALLOW THE ACTUAL     SURFACE OF THE ";
  105. 1060 PRINT"DISKETTE ITSELF TO BE    TOUCHED IN ANY WAY."
  106. 1070 GOSUB540:GOSUB490
  107. 1080 GOSUB530:PRINT"DUST IS NOT A PROBLEM TO A DISKETTE, AS DUST CAN EASILY BE ";
  108. 1090 PRINT"BLOWN OFF A DISKETTE.":GOSUB430
  109. 1100 IFTA=1THENPRINT"OH, BUT DUST IS A PROBLEM!":TA=0:GOTO1120
  110. 1110 PRINT"YOU'RE A SHARP COOKIE!!":GOSUB520
  111. 1120 GOSUB540: PRINT"ALWAYS AVOID DUST AS MUCH AS POSSIBLE."
  112. 1130 GOSUB540:PRINT"IN THE CLASSROOM, IT IS BEST TO KEEP THECOMPUTERS AWAY ";
  113. 1140 PRINT"FROM THE CHALKBOARDS TO  AVOID CHALK DUST. ALSO, KEEP YOUR ";
  114. 1150 PRINT"      COMPUTERS COVERED WITH PROPER COVERS    WHEN NOT IN USE."
  115. 1160 GOSUB540:GOSUB490
  116. 1170 GOSUB530:PRINT"THE PAPER POCKETS THAT THE DISKETTES    COME IN ARE ";
  117. 1180 PRINT"SPECIALLY TREATED TO MINI-  MIZE STATIC BUILD-UP.":GOSUB430
  118. 1190 IFTA=1THENPRINT"YOU'VE BEEN STUDYING THIS STUFF!!":GOSUB520:GOTO1210
  119. 1200 PRINT"SORRY - THEY ACTUALLY ARE !";N$
  120. 1210 GOSUB540:PRINT"AT LEAST THIS IS TRUE OF ALL PAPER      POCKETS FROM ";
  121. 1220 PRINT"COMMODORE[146] AND OTHER REPUT- ABLE SOFTWARE FIRMS."
  122. 1230 GOSUB540:PRINT"FOR THIS REASON, AND FOR PROTECTION,    DISKETTES SHOULD ";
  123. 1240 PRINT"ALWAYS BE RETURNED TO  THEIR PAPER POCKETS FOR STORAGE."
  124. 1250 GOSUB540:GOSUB490
  125. 1260 GOSUB530:PRINT"IT IS A GOOD IDEA TO HOLD YOUR THUMB    OVER THE LABEL WHEN ";
  126. 1270 PRINT"INSERTING A DISKETTEINTO THE DISK DRIVE, TO REMIND YOU TO   INSERT ";
  127. 1280 PRINT"IT PROPERLY.":GOSUB430
  128. 1290 IFTA=1THENPRINT"YOU'RE RIGHT! ";N$:GOSUB520:GOTO1310
  129. 1300 PRINT"OH, BUT IT IS! ";N$
  130. 1310 GOSUB540:PRINT"THIS IS AN EXCELLENT IDEA!! WE SHOULD   ALL LEARN TO MAKE";
  131. 1320 PRINT" THIS A HABIT!"
  132. 1330 GOSUB540:GOSUB490
  133. 1340 GOSUB530:PRINT"IT IS A GOOD IDEA TO LAY A DISKETTE ON  TOP OF THE DISK ";
  134. 1350 PRINT"DRIVE SO IT WILL BE     HANDY WHEN YOU NEED IT.":GOSUB430
  135. 1360 IFTA=1THENPRINT"NO - THIS IS NOT A GOOD IDEA.":TA=0:GOTO1380
  136. 1370 PRINT"CORRECT - IT IS NOT A GOOD IDEA!":GOSUB520
  137. 1380 GOSUB540:PRINT"THIS IS A COMMON BUT BAD PRACTICE. THE  DISK DRIVE HAS ";
  138. 1390 PRINT"AN ELECTRIC MOTOR, AND   ANY OPERATING MOTOR CAN BE HARMFUL ";
  139. 1400 PRINT"TO A DISKETTE."
  140. 1410 GOSUB540:PRINT"NOTE:[146] TRY TO CATCH YOUR TEACHER OR      COMPUTER ";
  141. 1420 PRINT"INSTRUCTOR FOLLOWING THIS BAD  HABIT!":GOSUB540:GOSUB490
  142. 1430 GOSUB530:PRINT"WITH THE COMMODORE 64[146] COMPUTER, BOTH THECOMPUTER AND THE ";
  143. 1440 PRINT"DISK DRIVE SHOULD BE   TURNED ON[146] BEFORE INSERTING THE DISKETTE ";
  144. 1450 PRINT"INTO THE DRIVE FOR LOAD[146]ING.":GOSUB430
  145. 1460 IFTA=1THENPRINT"CORRECT-AMUNDO!!":GOSUB520:GOTO1480
  146. 1470 PRINT"SORRY - THIS IS TRUE! ";N$
  147. 1480 GOSUB540:PRINT"SHOULD YOU INSERT THE DISKETTE INTO THE DRIVE WITH EITHER ";
  148. 1490 PRINT"THE COMPUTER OR THE   DRIVE TURNED OFF[146], DATA MAY BE ERASED "
  149. 1500 PRINT"FROM THE DISKETTE WHEN YOU POWER UP.":GOSUB540:PRINT"NOTE:[146] THIS ";
  150. 1510 PRINT"IS DIFFERENT IN SOME OTHER   SYSTEMS. CHECK THE APPROPRIATE ";
  151. 1520 PRINT"MANUALS.":GOSUB540:GOSUB490
  152. 1530 GOSUB530:PRINT"TO LOAD[146] A PROGRAM FROM A DISKETTE, YOU  PROPERLY INSERT ";
  153. 1540 PRINT"THE DISKETTE, CLOSE THE DOOR OF THE DRIVE, TYPE LOAD[146] ";CHR$(34);
  154. 1550 PRINT"PROGRAM   NAME";CHR$(34);",8 AND HIT RETURN[146].":GOSUB430
  155. 1560 IFTA=1THENPRINT"YOU GOT IT, PONTIAC!":GOSUB520:GOTO1580
  156. 1570 PRINT"OH, THIS WORKS FOR ME, ";N$
  157. 1580 GOSUB540:PRINT"REMEMBER TO POWER UP YOUR COMPUTER AND  DRIVE BEFORE ";
  158. 1590 PRINT"LOAD[146]ING.":GOSUB540:PRINT"ALSO, REMEMBER THAT SOME PROGRAMS HAVE "
  159. 1600 PRINT"SPECIAL LOAD[146] INSTRUCTIONS."
  160. 1610 GOSUB540:GOSUB490
  161. 1620 GOSUB530:PRINT"ONCE A PROGRAM HAS BEEN PROPERLY LOAD[146]ED,AND THE ";
  162. 1630 PRINT"PROMPT READY[146] APPEARS ON THE     SCREEN, YOU SHOULD TYPE RUN[146] AND";
  163. 1640 PRINT" PRESS   RETURN[146] TO START THE PROGRAM.":GOSUB430
  164. 1650 IFTA=1THENPRINT"WELL DONE! ";N$:GOSUB520:GOTO1670
  165. 1660 PRINT"TRY IT - IT WORKS FOR ME!"
  166. 1670 GOSUB540:PRINT"SHOULD YOU STOP A PROGRAM USING THE     RUN/STOP[146] KEY, OR";
  167. 1680 PRINT" RESET THE COMPUTER BY  PRESSING THE RUN/STOP[146] AND RESTORE[146] KEYS ";
  168. 1690 PRINT" SIMULTANEOUSLY, YOU CAN RESTART YOUR    PROGRAM BY TYPING RUN[146] ";
  169. 1700 PRINT"AND PRESSING":PRINT"RETURN[146].":GOSUB540:GOSUB490
  170. 1710 GOSUB530:PRINT"A DISKETTE IS LIKE A RECORD WITH A":PRINT"COVER; THERE IS NO";
  171. 1720 PRINT" PART WHICH MUST ENTERTHE DRIVE FIRST.":GOSUB430
  172. 1730 IFTA=1THENPRINT"THIS IS INCORRECT!":TA=0:GOTO1750
  173. 1740 PRINT"CHALK ANOTHER ONE UP FOR THE KID!!":GOSUB520
  174. 1750 GOSUB540
  175. 1760 PRINT"THE CUTOUT PART OF THE DISKETTE MUST[146]    ENTER THE DRIVE FIRST!!"
  176. 1770 GOSUB540:GOSUB490
  177. 1780 GOSUB530:PRINT"A DISKETTE MUST BE PUSHED INTO THE DRIVEGENTLY OR ELSE IT ";
  178. 1790 PRINT"MIGHT BE DAMAGED.":GOSUB430
  179. 1800 IFTA=1THENPRINT"WAY TO GO! ";N$:GOSUB520:GOTO1820
  180. 1810 PRINT"SORRY - DISKETTES ARE RATHER FRAGILE!"
  181. 1820 GOSUB540:PRINT"BE GENTLE WITH DISKETTES. THEY WILL TAKESOME ABUSE; ";
  182. 1830 PRINT"HOWEVER, NEVER[146] JAM A":PRINT"DISKETTE INTO THE DRIVE!"
  183. 1840 GOSUB540:GOSUB490
  184. 1850 GOSUB530:PRINT"NEVER[146] REMOVE A DISKETTE WHILE THE DISK  DRIVE'S IN USE[146] ";
  185. 1860 PRINT"LIGHT IS ON, AS THIS WILLDESTROY THE DATA ON THE DISKETTE, AND"
  186. 1870 PRINT"MAY PERMANENTLY DAMAGE IT.":GOSUB430
  187. 1880 IFTA=1THENPRINT"ABSOLUTELY CORRECT!! ";N$:GOSUB520:GOTO1900
  188. 1890 PRINT"ANOTHER OUCH!! SORRY - YOU'RE WRONG."
  189. 1900 GOSUB540:PRINT"DEFINITELY ONE TO PAY ATTENTION TO!"
  190. 1910 GOSUB540:PRINT"NEVER[146] TRY TO REMOVE A ";
  191. 1920 PRINT"DISKETTE FROM THE DRIVE WHILE THE IN USE[146] LIGHT IS ON!"
  192. 1930 GOSUB540:GOSUB490
  193. 1940 GOSUB530:PRINT"THE EDGE OF THE DISKETTE WITH THE OVAL  CUTOUT IN THE SQUARE";
  194. 1950 PRINT" PLASTIC COVER MUST ENTER THE DRIVE FIRST.":GOSUB430
  195. 1960 IFTA=1THENPRINT"AN EASY ONE FOR YOU!":GOSUB520:GOTO1980
  196. 1970 PRINT"YES, IT MUST, OR IT WON'T WORK."
  197. 1980 GOSUB540:PRINT"YOU HAD THIS ONE BEFORE."
  198. 1990 GOSUB540:PRINT"JUST CHECKING TO SEE IF YOU'VE BEEN     PAYING ATTENTION."
  199. 2000 GOSUB540:GOSUB490
  200. 2010 GOSUB530:PRINT"HEAT AND COLD WON'T BOTHER A DISKETTE,  UNLESS YOU GET THE ";
  201. 2020 PRINT"PLASTIC SO HOT IT    MELTS.":GOSUB430
  202. 2030 IFTA=1THENPRINT"SORRY - THAT IS INCORRECT.":TA=0:GOTO2050
  203. 2040 PRINT"MY, YOU ARE A CLEVER ONE!":GOSUB520
  204. 2050 GOSUB540:PRINT"A DISKETTE IS SENSITIVE TO EXTREMES OF  HEAT AND COLD."
  205. 2060 GOSUB540:PRINT"ALLOW A DISKETTE BROUGHT IN FROM"
  206. 2070 PRINT"OUTDOORS TO WARM TO ROOM TEMPERATURES IFYOU EXPERIENCE PROBLEMS ";
  207. 2080 PRINT"WITH IT.":GOSUB540:GOSUB490
  208. 2090 GOSUB530:PRINT"A DISKETTE SHOULD NEVER[146] BE STORED NEAR AMAGNET, AN ";
  209. 2100 PRINT"ELECTRIC MOTOR, OR EVEN A    TELEVISION SET.":GOSUB430
  210. 2110 IFTA=1THENPRINT"SUPER! ";N$:GOSUB520:GOTO2130
  211. 2120 PRINT"GOTCHA! THIS IS TRUE! ";N$
  212. 2130 GOSUB540:PRINT"DISKETTES ARE A MAGNETIC MEDIUM, AND AREAFFECTED BY ";
  213. 2140 PRINT"ANYTHING WHICH CREATES A    MAGNETIC FIELD."
  214. 2150 GOSUB540:GOSUB490
  215. 2160 GOSUB530:PRINT"THE DOOR OF THE DISK DRIVE MUST BE":PRINT"CLOSED[146] IN ORDER";
  216. 2170 PRINT" FOR THE DRIVE TO":PRINT"OPERATE.":GOSUB430
  217. 2180 IFTA=1THENPRINT"RIGHT YOU ARE! ";N$:GOSUB520:GOTO2200
  218. 2190 PRINT"SORRY - YOU ARE WRONG, ";N$
  219. 2200 GOSUB540:PRINT"KEEP THE DOOR CLOSED AT ALL TIMES WHEN  THE DRIVE IS IN USE."
  220. 2210 GOSUB540:GOSUB490
  221. 2220 GOSUB530:PRINT"TO LABEL YOUR DISKETTE, A FELT PEN "
  222. 2230 PRINT"SHOULD BE USED. THE BEST IDEA IS TO     WRITE ON THE LABEL FIRST, ";
  223. 2240 PRINT"THEN ATTACH ITTO THE DISKETTE.":GOSUB430
  224. 2250 IFTA=1THENPRINT"ANOTHER QUESTION BITES THE DUST!!":GOSUB520:GOTO2270
  225. 2260 PRINT"SORRY - THAT'S THE BEST IDEA I HAVE!"
  226. 2270 GOSUB540:PRINT"A DISKETTE IS VERY SENSITIVE. WRITING ONTHE LABEL WHEN ";
  227. 2280 PRINT"ATTACHED, ESPECIALLY WITHA PEN OR PENCIL, MIGHT DAMAGE THE"
  228. 2290 PRINT"DISKETTE.":GOSUB540:GOSUB490
  229. 2300 GOSUB530:PRINT"A CHARGE OF STATIC ELECTRICITY CAN":PRINT"DAMAGE THE ";
  230. 2310 PRINT"INFORMATION ON A DISKETTE.":GOSUB430
  231. 2320 IFTA=1THENPRINT"SHOCKING! BUT TRUE!":GOSUB520:GOTO2340
  232. 2330 PRINT"UNFORTUNATELY, IT CAN AND WILL!"
  233. 2340 GOSUB540:PRINT"AVOID BUILD-UP OF STATIC ELECTRICITY    WHENEVER POSSIBLE."
  234. 2350 GOSUB540:PRINT"BE PARTICULARLY CAREFUL IN CLASSROOMS   WITH CARPETED ";
  235. 2360 PRINT"FLOORS. IT IS BEST TO LAY A FLOOR COVERING OVER CARPET IN THE "
  236. 2370 PRINT"CLASSROOM IN THE COMPUTER AREA.":GOSUB540:GOSUB490
  237. 2380 GOSUB530:PRINT"THINK OF THE DOOR FOR THE DISK DRIVE    LIKE THE DOOR TO ";
  238. 2390 PRINT"YOUR HOME - KEEP IT    CLOSED  WHETHER THE DRIVE CONTAINS A "
  239. 2400 PRINT"DISKETTE OR NOT.":GOSUB430
  240. 2410 IFTA=1THENPRINT"YOU KNOW ALL THE ANSWERS!":GOSUB520:GOTO2430
  241. 2420 PRINT"OH - THIS IS A GOOD HABIT TO LEARN."
  242. 2430 GOSUB540:PRINT"KEEPING THE DRIVE DOOR CLOSED HELPS KEEPDUST, FINGERS, ";
  243. 2440 PRINT"TOYS, AND SO ON OUT OF   THE DRIVE. IT IS A GOOD IDEA TO KEEP IT ";
  244. 2450 PRINT"CLOSED WHENEVER POSSIBLE.":GOSUB540:GOSUB490
  245. 2460 GOSUB530:PRINT"SHOULD YOU WISH TO SAVE[146] YOUR WRITTEN    WORK YOU DID WITH ";
  246. 2470 PRINT"A WORD PROCESSING     PROGRAM SUCH AS BANK STREET WRITER[146], YOU"
  247. 2480 PRINT"SHOULD REMOVE THE PROGRAM DISKETTE, AND INSERT YOUR OWN PROPERLY ";
  248. 2490 PRINT"FORMATTED      DISKETTE BEFORE SAVING.":GOSUB430
  249. 2500 IFTA=1THENPRINT"THIS IS TRUE, ";N$:GOSUB520:GOTO2520
  250. 2510 PRINT"SORRY - IT'S THE BEST IDEA!"
  251. 2520 GOSUB540:PRINT"A GOOD IDEA IS TO PLACE A WRITE-PROTECT TAB ON YOUR ";
  252. 2530 PRINT"MASTER DISKETTE AND TO SAVE[146] ONLY TO A FILE DISKETTE."
  253. 2540 GOSUB540:GOSUB490
  254. 2550 REM *** QUIZ RESULTS
  255. 2560 PRINT"[147]       *** QUIZ RESULTS *** "
  256. 2570 PRINT"YOU GOT ";CA;" RIGHT OUT OF ";NQ
  257. 2580 IFNQ=0THENFORT=1TO1000:NEXTT:GOTO2770
  258. 2590 FA=INT((CA/NQ)*100)
  259. 2600 PRINT"YOU SCORED ";FA;" %"
  260. 2610 IFFA=100THENPRINT"EXCELLENT WORK! ";N$
  261. 2620 IFFA>89ANDFA<100THENPRINT"VERY GOOD! ";N$
  262. 2630 IFFA=>75ANDFA<89THENPRINT"GOOD! ";N$
  263. 2640 IFFA<75THENPRINT"PERHAPS YOU SHOULD TRY THE QUIZ AGAIN, ":PRINTN$
  264. 2650 PRINT"     PRESS ANY KEY TO CONTINUE[146]"
  265. 2660 GOSUB400
  266. 2670 PRINT"[147]       *** SAVE OPTION *** [146]"
  267. 2680 PRINT"SAVE THE RESULTS OF YOUR QUIZ?":GOSUB480:GOSUB400
  268. 2690 IFA$="Y"THEN3010
  269. 2700 IFA$<>"N"THEN2670
  270. 2710 PRINT"[147]DO YOU WISH TO RE-DO THE QUIZ?":GOSUB480:GOSUB400
  271. 2720 IFA$="Y"THENCA=0:NQ=0:GOTO560
  272. 2730 IFA$<>"N"THEN2710
  273. 2740 PRINT"WOULD ANYONE ELSE LIKE TO DO IT?":GOSUB480:GOSUB400
  274. 2750 IFA$="Y"THENN$="":N=2000:GOTO90
  275. 2760 IFA$<>"N"THEN2740
  276. 2770 PRINT"[147]COMPUTER QUIZ[146] TERMINATED.":END
  277. 2780 REM *** LOAD
  278. 2790 PRINT"[147]DO YOU WANT A CATALOG OF STUDENT FILES?":GOSUB480:GOSUB400
  279. 2800 IFA$="Y"THENGOSUB3070:PRINT"[147]":GOTO2820
  280. 2810 IFA$<>"N"THEN2790
  281. 2820 PRINT"ENTER NAME OF FILE TO BE LOADED.":INPUTN$
  282. 2830 OPEN15,8,15:OPEN5,8,5,"0:] "+N$+",S,R":GOSUB3280
  283. 2840 INPUT#5,N$,CA,NQ,FA:GOSUB3280
  284. 2850 INPUT#5,E$
  285. 2860 CLOSE5:CLOSE15:PRINT"[147]":GOTO2880
  286. 2870 IFHC=1THENOPEN4,4:CMD4
  287. 2880 PRINT:PRINT"COMPUTER QUIZ RESULTS:"
  288. 2890 PRINT:PRINT"NAME OF STUDENT: ";N$
  289. 2900 PRINT:PRINT"NUMBER OF QUESTIONS CORRECT: ";CA
  290. 2910 PRINT:PRINT"NUMBER OF QUESTIONS ATTEMPTED: ";NQ
  291. 2920 PRINT:PRINT"PERCENTAGE: ";FA;" %"
  292. 2930 IFHC=1THENHC=0:PRINT#4:CLOSE4:N=2000:GOTO210
  293. 2940 PRINT"PRINT A COPY OF THESE RESULTS?":GOSUB480:GOSUB400
  294. 2950 IFA$="Y"THEN2970
  295. 2960 IFA$<>"Y"THENN=2000:GOTO210
  296. 2970 PRINT"  CHECK TO SEE THAT PRINTER IS READY[146]"
  297. 2980 PRINT"      PRESS ANY KEY TO PRINT COPY[146]":GOSUB400
  298. 2990 HC=1:GOTO2870
  299. 3000 REM *** SAVE
  300. 3010 OPEN15,8,15:PRINT#15,"S0:] "+N$:GOSUB3280
  301. 3020 OPEN5,8,5,"0:] "+N$+",S,W":GOSUB3280
  302. 3030 PRINT#5,N$;CR$;CA;CR$;NQ;CR$;FA:GOSUB3280
  303. 3040 PRINT#5,E$:CLOSE5:CLOSE15
  304. 3050 PRINT"FILE SAVED":FORT=1TO750:NEXTT:GOTO2710
  305. 3060 REM *** DIRECTORY
  306. 3070 PRINT"[147]":OPEN15,8,15:OPEN1,8,0,"$0":GOSUB3280
  307. 3080 GET#1,A$,B$
  308. 3090 GET#1,A$,B$
  309. 3100 GET#1,A$,B$
  310. 3110 C=0:IFA$<>""THENC=ASC(A$)
  311. 3120 IFB$<>""THENC=C+ASC(B$)*256
  312. 3130 PRINTMID$(STR$(C),2);TAB(3);
  313. 3140 GET#1,B$:IFST<>0THEN3220
  314. 3150 IFB$<>CHR$(34)THEN3140
  315. 3160 GET#1,B$:IFB$<>CHR$(34)THENPRINTB$;:GOTO3160
  316. 3170 GET#1,B$:IFB$=CHR$(32)THEN3170
  317. 3180 PRINTTAB(20);:C$=""
  318. 3190 C$=C$+B$:GET#1,B$:IFB$<>""THEN3190
  319. 3200 PRINTLEFT$(C$,3)
  320. 3210 IFST=0THEN3090
  321. 3220 PRINT" BLOCKS FREE ":CLOSE1:CLOSE15
  322. 3230 PRINT"NOTE: COMPUTER QUIZ[146] FILES ARE MARKED"
  323. 3240 PRINT"WITH A ]. DO NOT[146] TYPE THIS AS PART OF":PRINT"THE FILE NAME."
  324. 3250 PRINT"       PRESS ANY KEY TO CONTINUE[146]":GOSUB400
  325. 3260 RETURN
  326. 3270 REM *** DISK ERROR
  327. 3280 INPUT#15,EN,EM$,ET,ES:IF(EN<20)OR(EN=62)THENRETURN
  328. 3290 PRINT"DISK ERROR[146]"EN"[157], "EM$","ET"[157],"ES
  329. 3300 PRINT"        PRESS ANY KEY TO CONTINUE[146]":GOSUB400
  330. 3310 CLOSE5:CLOSE15:N=2000:IFLEFT$(TS$,1)="S"THEN2560
  331. 3320 GOTO210
  332. 3330 REM *** LOAD PRQUIZ
  333. 3340 PRINT"[147]"
  334. 3350 PRINT"LOAD"CHR$(34)"0:PRQUIZ"CHR$(34)",8"
  335. 3360 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  336. 3370 POKE631,13:POKE632,13:POKE198,2:END
  337. 3380 REM"
  338. 3390 [143]"
  339. 64000 REM" *** COMPUTER QUIZ *** - ERIC MEISNER        1-902-678-7074
  340.